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Appendix C 

Following is a description of a parallel port interface that gives full access to the all the 
parallel port pins and implements a parallel port data transfer functionality that can be 
used in conjuction with the ESL download utility 

II ***************************** 
// Parallel port controller 

II ************************************************************* 

// Instantiates a component that controls the parallel port. 
// This is to be run in parallel in the main loop. The interfaces 
// provide the user with abstracts to use deal efficiently with the 
// component. 

II ****************************************** 

// Interfaces 

// 

// API to Parallel Port - for direct access to the pins 
// 

// PpWriteData((unsigned 8)byte) - write byte to data pins 

// PpReadData((unsigned 8)byte) -- read byte from data pins 

// PpReadControl((unsigned 4)control_port) - read the control port 

// PpReadStatus((unsigned 6)status_port) - read the status port 

// PpSetStatus((unsigned 6) status_port) -- write to the status port 

// 

// 

// API for the ESL parallel data transfer utility 

// 
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// OpenPP(error) — open the parallel port for data transfer 
// ClosePP(error) - close the port 
// SetSendMode(error) ~ set the port to send mode 
// SetRecvMode(error) - set the port to receive mode 
5 // SendPP(byte, error) — send a byte over the port 
// ReadPP(byte, error) — read a byte from the port 
// 

// error returns the result of the command: 
// 0 - no error 
10 // 1 - buffer error 
111- timeout error 

II 

// Note: SendPP and ReadPP will block the thread until a byte is transmitted or the 
timeout 

15 // value is reached. If you need to do some processing while waiting for a 
communication 

// use a 'prialt' statement to read from the global pp_recv_chan channel or write to the 
II pp_send__chan channel. 



20 



liltlililllitllllliiiliitllllllllitllllltitlliilllillilililliUillltllliliilit 
II The Nitty Gritty 

lllllllilllllllllllllllllllllllllllllllllllllllllllllllllllllllllh 



II The necessary channels 

chan unsigned 8 pp_send_chan, pp_recv_chan; 

chan unsigned 2 ppcommand, pp error; 
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chan pp_data_send_channel, pp_data_read_channel, pp_control_port_read; 
chan pp_status_port_read, pp_status__port_write; 

#define OPENCHANNEL 0 
#defme CLOSECHANNEL 1 
#define SEND MODE 2 
#defineRECV_MODE 3 

#define PP_NO_ERROR 0 

#define PP_HOST_BUFFER_NOT_FINISHED 1 

#define PP_OPEN_TIMEOUT 2 

// Currently the functions don't act on any errors, but this can easily be added if 
required. 

// return of error code could also be used to generate a time-out condition. 

macro proc OpenPP(error) 
{ 

pp_command ! OPEN CHANNEL; 
pperror ? error; 

} 

macro proc ClosePP(error) 
{ 

pp_command ! CLOSE_CHANNEL; 
pp error ? error; 
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} 

macro proc SetSendMode(error) 
{ 

pp_command ! SENDMODE; 
pp error ? error; 

} 

macro proc SetRecvMode(error) 
{ 

pp_command ! RECVMODE; 
pp_error ? error; 

} 

macro proc WritePP(byte, error) 
{ 

pp_send_chan ! byte; 

} 

macro proc ReadPP(byte, error) 
{ 

pprecvchan ? byte; 

} 



********************************************************** 
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// Parallel port controller 

II *********************************************** 

// Host Channel Control (HCC) nAutoFeed 
5 // FPGA Channel Control (FCC) DONE 
// Host Data Control (HDC) nSelect_in 
// FPGA Data Control (FDC) nACK 
// FPGA ready to communicate (FRTC) PE 

10 

// HCC indicates that host is sending - end of the buffer 
// FCC controls direction of commmunication 
// FRTC indicates that FPGA is ready 

// when FPGA sets FCC low, rising edge on FDC when data applied 
15 // lower when host responds with HDC high 

// when FCC high FPGA is in receive mode and host applies data 
// on rising edge on HDC. FPGA responds with FDC high and host 
// then lowers HDC. Host will keep data byte on pins till FDC is 
// lowered again by the FPGA 



20 



// chan unsigned 8 pp_data_chan; 
// chan unsigned 4 pp_control_chan; 
// chan unsigned 5 pp_status_chan; 



25 



//////////////////////////////////////////////// 

// Macro to implement ESLs bi-directional host-fpga 

// data transfer protocol 



// Accesses the physical layer 

llllllllllllllllllllllllllllllllllllllllllllllll 



macro proc TestPPO 
{ 

unsigned 4 control_port; 
unsigned 6 status_port; 

unsigned 21 counter; 

// PpSetControl(ObOOOO); 
PpSetStatus(ObOOOOOO); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOOOOl); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOOOlO); 



do 
{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOOlOO); 

do 
{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOOlOOO); 

do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOlOOOO); 

do 
{ 

counter++; 
}while(counter != 0); 
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PpSetStatus(ObOOOOOO); 
do 

{ 

counter++; 
}while(counter != 0); 

PpSetStatus(ObOlllll); 

while(l) 
{ 

PpReadControl(debug_control); 

} 

} 



macro proc pp_coms(pp_send_chan, pp_recv_chan, pp_command, pp_error) 
{ 

// bit masks for accessing control and status ports 

//control _port = nSelect_in.in @ init.in @ nAutofeed.in @ nStrobe.in; 
#define HCC control_port[l] //ObOOlO //nAutofeed pin on control port 
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#define HDC control_port[2] //ObOl 00 //nlnit pin on control port 

//status_port = ppdir @ busy @ nAck @ pe @ select @ nError; 
#defineFRTC ObOOOOlO //pe pin on status port 

#define FCC ObOOOlOO //select pin on status port 

#define FDC ObOOlOOO //nAck pin on status 

#definePP_SEND OblOOOOO 
#define PPREAD ObOOOOOO 



unsigned 4 control_port; 
unsigned 6 status_port; 
unsigned 1 pp_dir with {warn = 0}; 
unsigned 2 command; 
unsigned 8 temp_data; 

PpSetStatus(PP_PvEAD | FRTC); // initialise the port, read mode, FRTC high 

while(l) 

{ 

prialt 

{ 

case pp_command ? command: 

// deal with any commands received 
switch (command) 

{ 

case OPEN CHANNEL: 
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// open channel and set to FPGA send 

mode 

5 PpSetStatus(PP_SEND | FCC ); // |FDC 

keep FCC low, FRTC low to indicate ready 

pp_dir = 1; 



IQ // wait for pulse on HCC in response to 

open channel 



15 



PpReadControl(control_port); 



while(HCC) // wait for nHCC to go low 
{ 

PpReadControl(control_port); 



20 } 



while(IHCC) // wait for nHCC to go high 
{ 

25 PpReadControl(control_port); 



} 
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pp_error ! PP_NOJERROR; 
break; 



regardless of state 

status port to all zeros, FRTC high 



case CLOSE CHANNEL: // closes the channel 
PpSetStatus(PP_READ | FRTC); // sets 
pp_dir = 0; 

pp_error ! PP_NO_ERROR; 
break; 



case SENDMODE: 

PpReadControl(control_port); 



// set FRTC high - host send, start driving 

data pins, FCC low 

PpSetStatus(PP_SEND); 
pp_dir = 1 ; 

pp_error ! PP_NO_ERROR; 



// BUFFERNOTFINISHED 
break; 



• # 
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data pins, FCC high, FDC low 
//|FDC|FCC 



case RECVMODE: 

// set FRTC high - host read - stop driving 
PpSetStatus(PP_READ | FCC ); 
ppdir = 0; 

pp_error ! PP_NO_ERROR ; 
break; 

default: 

delay; 
break; 

} 

break; 

// FPGA sending 

case pp_send_chan ? temp_data: 



low - pin is inverted 



PpSetStatus(PP_SEND); // FCC low, FDC 



HCC 



FDC high 



low - pin is inverted 
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PpReadControl(control_port) ; 
while(!HCC) // wait for host to de-assert 
{ 

PpReadControl(control_port); 

} 

PpWriteData(temp_data) ; 
PpSetStatus(PP_SEND | FDC);// FCC low, 

PpReadControl(control_port); 

while(!HDC) // wait for host to assert HDC 
{ 

PpReadControl(control_port); 

} 

PpSetStatus(PP_SEND); // FCC low, FDC 

PpReadControl(control_port) ; 
while(HDC) // wait for host to de-assert 



HDC 
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{ 

PpReadControl(control_port); 

} 

break; 



// host sending 

default: 

PpReadControl(control__port); 
PpReadStatus(status_port); 



if (!status_port[5] & !HCC) // read one 

byte, if in read mode and HCC is low 



while(!HDC) // wait for host to 

apply data and raise HDC 



PpReadControl(control_port); 



} 




FDC); // FCC high FDC high 



5 



5* 10 



r ! remove HDC 
=P 15 



!r PpReadControl(control_port); 

ru 

O 

E e 

i 

20 

FCC high FDC low 



25 
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PpSetStatus( PP_READ | FCC | 

PpReadData(temp_data); 

pprecvchan ! tempdata; 

PpReadControl(control _port); 
PpReadStatus(status _port); 

while(HDC) // wait for host to 
{ 

} 

PpSetStatus( PP_READ | FCC ); // 

} 

else delay; 
break; 



} // while(l) 



• 
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delay; // avoid combinational cycles 



10 llllllllllllllllllllllllllllllllllllllllltlllllltllllllllllll 

II Parallel Port - Physical layer 

// 

// Allows access to all the data, control and status ports 
// through a series of channels which can be read from 
15 // and written to. 

Illllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

II Macro abstractions for the various actions 

20 macro proc PpWriteData(/*(unsigned 8)*/ byte) 
{ 

pp_data_send_channel ! byte; 



25 



} 



macro proc PpReadData(/*(unsigned 8)*/ byte) 
{ 

pp_data_read_channel ? byte; 
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} 

macro proc PpReadControl(/*(unsigned 4)*/ control_port) 

5 { 

pp_control_port_read ? control_port; 

* } 

10 

£ macro proc PpReadStatus(/* (unsigned 6)*/ status _port) 

§ ( 

jj pp_status_port_read ? status_port; 

| 15 } 

s 

H macro proc PpSetStatus(/*(unsigned 6)*/ status_port) 

S { 

^ pp_status_port_write ! status_port; 

20 } 



25 // Actual Parallel Port control circuitry 

macro proc parallel_port(pp_data_send_channel, pp_data_read_channel, 
pp_control_port_read, 
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pp_status_port_read, 

pp_status_port_write) 
{ 

unsigned 8 pp_data; 
unsigned 6 status__register; 

interface bus_ts_clock_in (unsigned 8) data_bus(pp_data, status_register[5]) 
with pp_data_pins; 



// Control Port (unsigned 4, made up as nSelect_in.in @ init.in @ nAutofeed.in 
@ nStrobe.in) 

interface bus_clock_in (unsigned 4) control_port() with control_port_pins; 



// Status Port, status_register = pp_direction @ busy @ nAck @ pe @ Select @ 

nError; 

interface bus_outO status_port_bus(status_register[4:0]) with status__port_pins; 

// Setting pp_direction to 1 will drive data onto the pins. 

while(l) 
{ 

// Allows read of control, read / write of status and data ports 
simulatneously 

par 

{ 
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prialt 
{ 

case pp_control_port_read ! control_port.in: 
break; 

default: 

delay; 
break; 

} 



prialt 
{ 

case pp_status_port_write ? status_register: 
break; 

case pp_status_port_read ! status_register: 
break; 

default: 

delay; 
break; 

} 



prialt 

{ 

case pp_data_send_channel ? pp_data: 
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break; 

case pp_data_read_channel ! data_bus.in: 
break; 

default: 

delay; 
break; 



} 



} 

delay; // to avoid combinational cycles 



//macro expr control_port = nSelect_in.in @ init.in @ nAutofeed.in @ 
nStrobe.in; 

/interface bus_clock_in (unsigned 1) nAutofeed() with nAutoFeed_pin 
interface bus_clock_in (unsigned 1) init() with init_pin; 
interface bus_clock_in (unsigned 1) nSelect_in() with nSelect_in_pin; 
interface bus_clock_in (unsigned 1) nStrobe() with nStrobe__pin; 

// defined in the same order as on a PC 
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*/ 



macro expr control_port = nSelect_in.in @ init.in @ nAutofeed.in @ nStrobe.in; 



10 



interface bus_out 0 nAck_line( status_register[3] ) with nAck_pin; 
interface bus_out 0 busy_line(status_register[4]) with busy_pin; 
interface bus_out 0 pe_line(status_register[2]) with pe_pin; 
interface bus_out 0 select_line(status_register[l]) with select_pin; 
interface bus_out 0 nError_line(status_register[0]) with nError_pin; 
*/ 



II 

15 nError; 



// status_register[5] is high to send and low to receive 
// defined in the same order as on a PC 

macro expr status_port = pp_direction @ busy @ nAck @ pe @ Select @ 



20 



